From: Wojciech Siewierski <wojciech@siewierski.eu>
Date: Mon, 14 Apr 2025 16:57:28 +0000 (+0200)
Subject: Fix deleting the first line of calc trail
X-Git-Tag: archive/raspbian/1%30.2+1-2+rpi1^2~2^2~24^2~144
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/success/%22http:/www.example.com/cgi/success?a=commitdiff_plain;h=45cf832ac75f8d6fb41a4856d1987062e81dcddb;p=emacs.git

Fix deleting the first line of calc trail

* lisp/calc/calc-trail.el (calc-trail-kill): Remove the check
preventing the removal of the first trail line, which is no
longer relevant since commit 8e1376a3912.  (Bug#77816)
---

diff --git a/lisp/calc/calc-trail.el b/lisp/calc/calc-trail.el
index f134a7b16b9..433d3983b12 100644
--- a/lisp/calc/calc-trail.el
+++ b/lisp/calc/calc-trail.el
@@ -167,14 +167,7 @@
   (interactive "p")
   (calc-with-trail-buffer
    (let ((buffer-read-only nil))
-     (save-restriction
-       (narrow-to-region   ; don't delete "Emacs Trail" header
-	(save-excursion
-	  (goto-char (point-min))
-	  (forward-line 1)
-	  (point))
-	(point-max))
-       (kill-line n)))
+     (kill-line n))
    (calc-trail-here)))
 
 (provide 'calc-trail)